home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Symbol Generators / Expansions / gen-expansion next >
Text File  |  1998-10-23  |  1KB  |  33 lines
  1. gen-expansion level template expansion
  2.  
  3. This functions allows to expand a template with an expansion form in a given recursion level. In each level of expansion each template symbol is replaced by the expansion pattern, which is transposed to begin at the current template symbol. In the first level the pattern (a b a) is transposed to positions a and d.
  4.  
  5. (gen-expansion 1 '(a d) '(a b a))
  6. --> (a b a d e d)
  7.  
  8. In the second level the pattern (a b a) is transposed to all positions of the already expanded template (a b a d e d).
  9.  
  10. (gen-expansion 2 '(a d) '(a b a))
  11. --> (a b a b c b a b a d e d e f e d e d)
  12.  
  13. If you look closely you'll notice the operation:
  14.  
  15. (a      b      a      d      e      d)
  16. (a b a  b c b  a b a  d e d  e f e  d e d)
  17.  
  18. Try visualizing the following expansions. They make nice fractals.
  19.  
  20. (gen-expansion 5 '(a b a) '(a b a))
  21. (gen-expansion 5 '(a c a) '(a c a))
  22. (gen-expansion 5 '(a d a) '(a d a))
  23. (gen-expansion 5 '(a e a) '(a e a))
  24. (gen-expansion 5 '(a f a) '(a f a))
  25.  
  26. NOTE: You are not allowed to use transpose symbols or rest symbols as input patterns:
  27.  
  28. ILLEGAL:
  29.  
  30. (gen-expansion 2 '(a d a) '(a (1 b) c d))
  31. (gen-expansion 2 '(a d a =) '(a c d))
  32.  
  33.